

FUNCTION busca_cliente()
LET int_flag = FALSE
  
OPEN WINDOW cliente AT 10,9 WITH FORM "ipfmwd009" 
ATTRIBUTE(BORDER,FORM LINE FIRST + 2)
CONSTRUCT BY NAME criterio ON a.tipo_cliente,a.sec_cliente,a.nombre

LET selec = "SELECT a.tipo_cliente,a.sec_cliente,a.nombre FROM vetb00004 a ",
             "WHERE a.status_t IS NULL AND ",criterio CLIPPED, "ORDER BY 1,2"

PREPARE comando3 FROM selec 
DECLARE comp3 CURSOR FOR comando3

LET idx = 1
FOREACH comp3 INTO clientes[idx].*
 LET idx = idx + 1
END FOREACH
CALL SET_COUNT(idx - 1)

DISPLAY ARRAY clientes TO s_cliente.*
LET idx = ARR_CURR()
CLOSE WINDOW cliente
END FUNCTION
